﻿Public Class DMQuocGia_Report
    Dim dt As DataTable
    Private Sub DMQuocGia_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DataSetReport.dmquocgia' table. You can move, or remove it, as needed.
        'Me.dmquocgiaTableAdapter.Fill(Me.DataSetReport.dmquocgia)
        'TODO: This line of code loads data into the 'DataSetReport.dmquocgia' table. You can move, or remove it, as needed.
        Me.DonvisudungTableAdapter.Fill(Me.ErpharmaDataSet.donvisudung)
        Me.IReportViewer1.setParameter(Me.ErpharmaDataSet.donvisudung)
        Me.IReportViewer1.RefreshReport()
    End Sub
    Public Sub setDt(ByVal dt As DataTable)
        Me.DataSetReport.dmquocgia.Clear()
        Me.dt = dt
        Me.DataSetReport.dmquocgia.Merge(dt)
    End Sub
End Class